1 Introduction
data.raw <- get.raw.dataset()
data.melt <- get.melted.dataset(data.raw)
data.melt$education_discrepancy <- data.melt$education_boys - data.melt$education_girls
data.melt %<>% append.regions()
write.csv(data.melt, "ComprehensiveMeltedData.csv", row.names=F)## [1] "Country not found: Channel Islands"
## [2] "Country not found: Cote d'Ivoire"
## [3] "Country not found: Eswatini"
## [4] "Country not found: Gibraltar"
## [5] "Country not found: Holy See"
## [6] "Country not found: Macao, China"
## [7] "Country not found: Netherlands Antilles"
## [8] "Country not found: Sint Maarten (Dutch part)"
## [9] "Country not found: Tuvalu"
Figure 1.1: Average Gini Coefficient
Figure 1.2: Correlation